program example_read_whole_file

    use fffc_module, only: read_whole_file, display
    implicit none

    character(:), allocatable :: file_content

    file_content = read_whole_file('example/example_read_whole_file.f90')
    call display(len(file_content), 'length of file_content:', inline=.true.)
    call display(file_content, 'file content:')

end program example_read_whole_file
